Otherware/Otherware_1_SB_Development.iso/mac/hypercar/fun/winetast.sit/Wine Tasting/background_2764.txt

Text File | 1990-08-16 | 38KB | 1,483 lines

-- background: 2764 from stack: in
-- bmap block id: 3181
-- flags: 4000
-- background id: 0
-- name:
----- HyperTalk script -----
on lockit
  if the locktext of fld "name" is false then
    set locktext of fld "name" to true
    set locktext of fld "district" to true
    set locktext of fld "type" to true
    set locktext of fld "taster" to true
    set locktext of fld "vintage" to true
    set locktext of fld "price" to true
    set locktext of fld "merchant" to true
    set locktext of fld "date of tasting" to true
    set locktext of fld "comments" to true
    set locktext of fld "sightcom" to true
    set locktext of fld "smellcom" to true
    set locktext of fld "tastecom" to true
  end if
  put "Locked" into fld "lock"
  set the icon of bkgnd btn "lock" to "locked"
end lockit

on unlockit
  if the locktext of fld "name" is true then
    set locktext of fld "name" to false
    set locktext of fld "district" to false
    set locktext of fld "type" to false
    set locktext of fld "taster" to false
    set locktext of fld "vintage" to false
    set locktext of fld "price" to false
    set locktext of fld "merchant" to false
    set locktext of fld "date of tasting" to false
    set locktext of fld "comments" to false
    set locktext of fld "sightcom" to false
    set locktext of fld "smellcom" to false
    set locktext of fld "tastecom" to false
  end if
  put "Unlocked" into fld "lock"
  set the icon of bkgnd btn "lock" to "unlocked"
end unlockit

on resize
  put the number of lines of target into nlines
  get rect of target
  if nlines > 0 then
    put (nlines * 16 + 1 + item 2 of it) into length
    put length into item 4 of it
    set rect of target to it
  else
    put (17 + item 2 of it) into length
    put length into item 4 of it
    set rect of target to it
  end if
end resize

on opencard
  if bkgnd fld "red-white" is "red" then
    set highlight of bkgnd btn "red" to true
    set highlight of bkgnd btn "white" to false
    put "Tannin" into bkgnd fld "sweetness-tannin label"
  end if
  if bkgnd fld "red-white" is "white" then
    set highlight of bkgnd btn "white" to true
    set highlight of bkgnd btn "red" to false
    put "Sweetness" into bkgnd fld "sweetness-tannin label"
  end if
  put "Clarity"&return&"Depth of Color"&return&"Color"&return& "Viscosity"& return & "Score" & return & "Desciption" into bkgnd fld "sight labels"
  put "General Appeal" & return & "Fruit Aroma" & return & "Bouquet" & return & "Score" & return & "Description" into bkgnd fld "smell labels"
  put "Acidity" & return & "Body" & return & "Length" & return & "Balance" & return & "Score" & return & "Description" into bkgnd fld "taste labels"
  put "Overall Quality" & return & "Score" & return & "Description" into bkgnd fld "overall quality labels"


  send resize to bkgnd fld "sight description"
  send resize to bkgnd fld "smell description"
  send resize to bkgnd fld "taste description"
  send resize to bkgnd fld "overall quality description"

  if fld "sightcom" is empty then
    set icon of bkgnd btn "sightcom" to "nocom"
  else
    set icon of bkgnd btn "sightcom" to "com"
  end if
  if fld "smellcom" is empty then
    set icon of bkgnd btn "smellcom" to "nocom"
  else
    set icon of bkgnd btn "smellcom" to "com"
  end if
  if fld "tastecom" is empty then
    set icon of bkgnd btn "tastecom" to "nocom"
  else
    set icon of bkgnd btn "tastecom" to "com"
  end if
  hide fld "sightcom"
  hide fld "smellcom"
  hide fld "tastecom"

  if fld "lock" is "Locked" then
    lockit
  else
    unlockit
  end if

end opencard

on openStack
  hide message box
  show menuBar
  hide bkgnd fld "red-white"
  hide fld "lock"
  pass openStack
end openStack

on idle
  if fld "lock" is not "Locked" then
    get bkgnd fld "overall quality score"
    if it is not empty then
      put it into total
      get bkgnd fld "taste score"
      if it is not empty then
        add it to total
        get bkgnd fld "smell score"
        if it is not empty then
          add it to total
          get bkgnd fld "sight score"
          if it is not empty then
            add it to total
            put total into bkgnd fld "scoring"
          end if
        end if
      end if
    end if
  end if
  pass idle
end idle




-- part 59 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=169 top=258 right=340 bottom=352
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: comments


-- part 64 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=387 top=272 right=303 bottom=423
-- title width / last selected line: 0
-- icon id / first selected line: 28024 / 28024
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: finder
----- HyperTalk script -----
on mouseUp
  put empty into names
  repeat with i=1 to number of cards
    put fld "name" of cd i after names
    if i is not number of cards then put return after names
  end repeat

  get XScrollBox(0,"Select one:",names)
  go cd (item 1 of it)

end mouseUp



-- part 74 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=471 top=276 right=298 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  go home
end mouseUp



-- part 65 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=429 top=271 right=303 bottom=462
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: sorter
----- HyperTalk script -----
on mouseUp
  answer "Sort by..." with "Name" or "Vintage" or "Score"
  if it is "Name" then sort by fld "name"
  if it is "Vintage" then sort by fld "vintage"
  if it is "Score" then sort descending by fld "scoring"
  go first cd
end mouseUp



-- part 6 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=87 top=136 right=154 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: clarity
----- HyperTalk script -----
on mouseDown
  if fld "lock" is "Unlocked" then
    put "cloudy,bitty,dull,clear,brilliant" into choices
    get PopUpMenu(choices,0)
    if it is not empty then put item it of choices into target
  end if
end mouseDown



-- part 16 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=87 top=152 right=169 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: depth of color
----- HyperTalk script -----
on mouseDown
  if fld "lock" is "Unlocked" then
    put "watery,pale,medium,deep,dark" into choices
    get PopUpMenu(choices,0)
    if it is not empty then put item it of choices into target
  end if
end mouseDown



-- part 17 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=87 top=168 right=185 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: color (red)
----- HyperTalk script -----
on mouseDown
  if fld "lock" is "Unlocked" then
    put numtochar(47) into slash
    put "purple,purple-red,red,red-brown" into choices
    get PopUpMenu(choices,0)
    if it is not empty then put item it of choices into target
  end if
end mouseDown



-- part 18 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=87 top=168 right=185 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: color (white)
----- HyperTalk script -----
on mouseDown
  if fld "lock" is "Unlocked" then
    put "green tinge,pale yellow,gold,brown" into choices
    get PopUpMenu(choices,0)
    if it is not empty then put item it of choices into target
  end if
end mouseDown



-- part 19 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=87 top=184 right=201 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: viscosity
----- HyperTalk script -----
on mouseDown
  if fld "lock" is "Unlocked" then
    put "slight sparkle,watery,normal,heavy,oily" into choices
    get PopUpMenu(choices,0)
    if it is not empty then put item it of choices into target
  end if
end mouseDown



-- part 20 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=87 top=200 right=217 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: sight score
----- HyperTalk script -----
on mouseDown
  if fld "lock" is "Unlocked" then
    put "0,1,2,3,4" into choices
    get PopUpMenu(choices,0)
    if it is not empty then put item it of choices into target
  end if
end mouseDown



-- part 21 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=8 top=136 right=233 bottom=88
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: sight labels


-- part 24 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=211 top=51 right=67 bottom=258
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Red
----- HyperTalk script -----
on mousedown
  if fld "lock" is "Unlocked" then
    put "red" into bkgnd fld "red-white"
    set highlight of me to true
    set highlight of bkgnd btn "white" to false
    show bkgnd fld "color (red)"
    hide bkgnd fld "color (white)"
    put "Tannin" into bkgnd fld "sweetness-tannin label"
    show bkgnd fld "tannin"
    hide bkgnd fld "sweetness"
  end if
end mousedown


-- part 25 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=211 top=67 right=84 bottom=272
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: White
----- HyperTalk script -----
on mousedown
  if fld "lock" is "Unlocked" then
    put "white" into bkgnd fld "red-white"
    set highlight of me to true
    set highlight of bkgnd btn "red" to false
    show bkgnd fld "color (white)"
    hide bkgnd fld "color (red)"
    put "Sweetness" into bkgnd fld "sweetness-tannin label"
    show bkgnd fld "sweetness"
    hide bkgnd fld "tannin"
  end if
end mousedown


-- part 26 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=87 top=216 right=233 bottom=161
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: sight description
----- HyperTalk script -----
on mouseDown
  if fld "lock" is "Unlocked" then
    put "starbright,tuilé,straw,amber,tawny,ruby,garnet,oel de perdrix,hazy,opaque,CLEAR" into choices
    get PopUpMenu(choices,0)
    if it is not empty then
      if target is not empty then put return after target
      if item it of choices is "CLEAR" then
        put empty into target
      else
        put item it of choices after target
      end if
    end if
    put the number of lines of target into nlines
    get rect of target
    if nlines > 0 then
      put (nlines * 16 + 1 + item 2 of it) into length
      put length into item 4 of it
      set rect of target to it
    else
      put (17 + item 2 of it) into length
      put length into item 4 of it
      set rect of target to it
    end if
  end if
end mouseDown





-- part 27 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=182 top=136 right=217 bottom=263
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: smell labels


-- part 28 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=262 top=136 right=153 bottom=336
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: general appeal
----- HyperTalk script -----
on mouseDown
  if fld "lock" is "Unlocked" then
    put "neutral,clean,attractive,outstanding,off" into choices
    get PopUpMenu(choices,0)
    if it is not empty then put item it of choices into target
  end if
end mouseDown



-- part 29 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=262 top=152 right=169 bottom=336
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: fruit aroma
----- HyperTalk script -----
on mouseDown
  if fld "lock" is "Unlocked" then
    put "none,slight,positive,identifiable" into choices
    get PopUpMenu(choices,0)
    if it is not empty then put item it of choices into target
  end if
end mouseDown



-- part 30 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=262 top=168 right=185 bottom=336
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bouquet
----- HyperTalk script -----
on mouseDown
  if fld "lock" is "Unlocked" then
    put "none,pleasant,complex,powerful" into choices
    get PopUpMenu(choices,0)
    if it is not empty then put item it of choices into target
  end if
end mouseDown



-- part 31 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=262 top=184 right=201 bottom=336
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: smell score
----- HyperTalk script -----
on mouseDown
  if fld "lock" is "Unlocked" then
    put "0,1,2,3,4" into choices
    get PopUpMenu(choices,0)
    if it is not empty then put item it of choices into target
  end if
end mouseDown



-- part 33 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=262 top=200 right=217 bottom=336
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: smell description
----- HyperTalk script -----
on mouseDown
  if fld "lock" is "Unlocked" then
    put "cedarwood,corly,woody,dumb,flowery,smoky,honeyed,lemony,spicy,mouldy,peardrops,sulphury,CLEAR" into choices
    get PopUpMenu(choices,0)
    if it is not empty then
      if target is not empty then put return after target
      if item it of choices is "CLEAR" then
        put empty into target
      else
        put item it of choices after target
      end if
    end if
    put the number of lines of target into nlines
    get rect of target
    if nlines > 0 then
      put (nlines * 16 + 1 + item 2 of it) into length
      put length into item 4 of it
      set rect of target to it
    else
      put (17 + item 2 of it) into length
      put length into item 4 of it
      set rect of target to it
    end if
  end if
end mouseDown



-- part 34 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=358 top=153 right=250 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: taste labels


-- part 35 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=358 top=137 right=154 bottom=419
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: sweetness-tannin label


-- part 36 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=418 top=137 right=154 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: tannin
----- HyperTalk script -----
on mouseDown
  if fld "lock" is "Unlocked" then
    put "astringent,hard,dry,soft" into choices
    get PopUpMenu(choices,0)
    if it is not empty then put item it of choices into target
  end if
end mouseDown



-- part 37 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=418 top=137 right=154 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: sweetness
----- HyperTalk script -----
on mouseDown
  if fld "lock" is "Unlocked" then
    put "bone dry,dry,medium dry,medium,sweet,very sweet" into choices
    get PopUpMenu(choices,0)
    if it is not empty then put item it of choices into target
  end if
end mouseDown



-- part 38 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=418 top=153 right=170 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: acidity
----- HyperTalk script -----
on mouseDown
  if fld "lock" is "Unlocked" then
    put "flat,refreshing,marked,tart" into choices
    get PopUpMenu(choices,0)
    if it is not empty then put item it of choices into target
  end if
end mouseDown



-- part 39 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=418 top=169 right=186 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: body
----- HyperTalk script -----
on mouseDown
  if fld "lock" is "Unlocked" then
    put "v.light & thin,light,medium,full bodied,heavy" into choices
    get PopUpMenu(choices,0)
    if it is not empty then put item it of choices into target
  end if
end mouseDown



-- part 40 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=418 top=185 right=203 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: length
----- HyperTalk script -----
on mouseDown
  if fld "lock" is "Unlocked" then
    put "short,acceptable,extended,lingering" into choices
    get PopUpMenu(choices,0)
    if it is not empty then put item it of choices into target
  end if
end mouseDown



-- part 41 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=418 top=201 right=218 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: balance
----- HyperTalk script -----
on mouseDown
  if fld "lock" is "Unlocked" then
    put "unbalanced,good,v.well balanced,perfect" into choices
    get PopUpMenu(choices,0)
    if it is not empty then put item it of choices into target
  end if
end mouseDown



-- part 42 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=418 top=217 right=234 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: taste score
----- HyperTalk script -----
on mouseDown
  if fld "lock" is "Unlocked" then
    put "0,1,2,3,4,5,6,7,8,9" into choices
    get PopUpMenu(choices,0)
    if it is not empty then put item it of choices into target
  end if
end mouseDown



-- part 43 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=418 top=233 right=250 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: taste description
----- HyperTalk script -----
on mouseDown
  if fld "lock" is "Unlocked" then
    put "appley,bitter,burning,blackcurrants,caramel,dumb,earthy,fat,flinty,green,heady,inky,flabby,mellow,metallic,mouldy,nutty,salty,sapppy,silky,spicy,fleshy,woody,watery,CLEAR" into choices
    get PopUpMenu(choices,0)
    if it is not empty then
      if target is not empty then put return after target
      if item it of choices is "CLEAR" then
        put empty into target
      else
        put item it of choices after target
      end if
    end if
    put the number of lines of target into nlines
    get rect of target
    if nlines > 0 then
      put (nlines * 16 + 1 + item 2 of it) into length
      put length into item 4 of it
      set rect of target to it
    else
      put (17 + item 2 of it) into length
      put length into item 4 of it
      set rect of target to it
    end if
  end if
end mouseDown



-- part 44 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=89 top=276 right=293 bottom=163
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: overall quality
----- HyperTalk script -----
on mouseDown
  if fld "lock" is "Unlocked" then
    put "course,poor,acceptable,fine,outstanding" into choices
    get PopUpMenu(choices,0)
    if it is not empty then put item it of choices into target
  end if
end mouseDown



-- part 45 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=89 top=292 right=309 bottom=163
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: overall quality score
----- HyperTalk script -----
on mouseDown
  if fld "lock" is "Unlocked" then
    put "0,1,2,3" into choices
    get PopUpMenu(choices,0)
    if it is not empty then put item it of choices into target
  end if
end mouseDown



-- part 46 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=89 top=308 right=325 bottom=163
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: overall quality description
----- HyperTalk script -----
on mouseDown
  if fld "lock" is "Unlocked" then
    put "supple,finesse,breed,elegance,harmonious,rich,delicate,CLEAR" into choices
    get PopUpMenu(choices,0)
    if it is not empty then
      if target is not empty then put return after target
      if item it of choices is "CLEAR" then
        put empty into target
      else
        put item it of choices after target
      end if
    end if
    put the number of lines of target into nlines
    get rect of target
    if nlines > 0 then
      put (nlines * 16 + 1 + item 2 of it) into length
      put length into item 4 of it
      set rect of target to it
    else
      put (17 + item 2 of it) into length
      put length into item 4 of it
      set rect of target to it
    end if
  end if
end mouseDown



-- part 47 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=8 top=276 right=325 bottom=90
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: overall quality labels


-- part 48 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=449 top=31 right=63 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 24
-- style flags: 256
-- line height: 32
-- part name: scoring


-- part 49 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=59 top=28 right=47 bottom=281
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: name


-- part 50 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=59 top=48 right=67 bottom=206
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: district


-- part 51 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=59 top=68 right=87 bottom=206
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: type


-- part 56 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=338 top=28 right=47 bottom=387
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: vintage


-- part 57 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=338 top=48 right=67 bottom=387
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: price


-- part 58 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=338 top=68 right=87 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: merchant


-- part 60 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=338 top=88 right=107 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: date of tasting


-- part 61 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=59 top=88 right=107 bottom=240
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: taster


-- part 62 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=209 top=58 right=78 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: red-white


-- part 63 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=361 top=317 right=335 bottom=433
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Card
----- HyperTalk script -----
on mouseUp
  if the commandkey is down then
    put true into ck
  else
    put false into ck
  end if
  put  fld "red-white" into rw
  if ck is true then
    put  fld "taster" into taster
    put fld "name" into name
    put fld "vintage" into vintage
    put fld "district" into district
    put fld "type" into type
    put fld "price" into price
    put fld "merchant" into merchant
    put fld "date of tasting" into dateoftasting
  end if
  domenu "new card"
  put rw into bkgnd fld "red-white"
  if bkgnd fld "red-white" is "red" then
    set highlight of bkgnd btn "red" to true
    set highlight of bkgnd btn "white" to false
    put "Tannin" into bkgnd fld "sweetness-tannin label"
  end if
  if bkgnd fld "red-white" is "white" then
    set highlight of bkgnd btn "white" to true
    set highlight of bkgnd btn "red" to false
    put "Sweetness" into bkgnd fld "sweetness-tannin label"
  end if
  if ck is true then
    put taster into fld "taster"
    put name into fld "name"
    put vintage into fld "vintage"
    put district into fld "district"
    put type into fld "type"
    put price into fld "price"
    put merchant into fld "merchant"
    put dateoftasting into fld "date of tasting"
  end if
  put "Unlocked" into fld "lock"
  unlockit
end mouseUp



-- part 66 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=123 top=115 right=133 bottom=141
-- title width / last selected line: 0
-- icon id / first selected line: 27721 / 27721
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: sightcom
----- HyperTalk script -----
on mouseUp
  if the visible of fld "sightcom" is false then
    show fld "sightcom"
    if fld "lock" is "Unlocked" then
      select after last char of fld "sightcom"
    end if
  else
    if fld "sightcom" is empty then
      set icon of me to "nocom"
    else
      set icon of me to "com"
    end if
    hide fld "sightcom"
  end if
end mouseUp



-- part 67 (field)
-- low flags: 80
-- high flags: 0004
-- rect: left=5 top=133 right=257 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: sightcom


-- part 68 (field)
-- low flags: 80
-- high flags: 0004
-- rect: left=179 top=133 right=257 bottom=342
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: smellcom


-- part 69 (field)
-- low flags: 80
-- high flags: 0004
-- rect: left=351 top=133 right=259 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: tastecom


-- part 70 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=299 top=114 right=132 bottom=317
-- title width / last selected line: 0
-- icon id / first selected line: 27721 / 27721
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: smellcom
----- HyperTalk script -----
on mouseUp
  if the visible of fld "smellcom" is false then
    show fld "smellcom"
    if fld "lock" is "Unlocked" then
      select after last char of fld "smellcom"
    end if
  else
    if fld "smellcom" is empty then
      set icon of me to "nocom"
    else
      set icon of me to "com"
    end if
    hide fld "smellcom"
  end if
end mouseUp



-- part 71 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=461 top=115 right=133 bottom=479
-- title width / last selected line: 0
-- icon id / first selected line: 27721 / 27721
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: tastecom
----- HyperTalk script -----
on mouseUp
  if the visible of fld "tastecom" is false then
    show fld "tastecom"
    if fld "lock" is "Unlocked" then
      select after last char of fld "tastecom"
    end if
  else
    if fld "tastecom" is empty then
      set icon of me to "nocom"
    else
      set icon of me to "com"
    end if
    hide fld "tastecom"
  end if
end mouseUp



-- part 73 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=365 top=266 right=284 bottom=417
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: lock
----- HyperTalk script -----
on mousedown
  if me is "Locked" then
    put "Unlocked" into me
    unlockit
  else
    put "Locked" into me
    lockit
  end if
end mousedown



-- part 75 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=357 top=261 right=287 bottom=382
-- title width / last selected line: 0
-- icon id / first selected line: 6123 / 6123
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: lock
----- HyperTalk script -----
on mouseup
  if fld "lock" is "Locked" then
    put "Unlocked" into fld "lock"
    set icon of me to "unlocked"
    unlockit
  else
    put "Locked" into fld "lock"
    set icon of me to "locked"
    lockit
  end if
end mouseup



-- part 9 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=443 top=312 right=338 bottom=469
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  lock screen
  go to prev card
  unlock screen with visual wipe right
  set cursor to 1
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=475 top=311 right=337 bottom=499
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  lock screen
  go to next card
  unlock screen with visual wipe left
  set cursor to 1
end mouseUp



-- part 76 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=357 top=291 right=313 bottom=384
-- title width / last selected line: 0
-- icon id / first selected line: 19678 / 19678
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  lock screen
  if the visible of fld "about" is false then
    show fld "about"
    put "Wine tasting stack by Len Saaf" & return into fld "about"
    --put "©1990 Raleigh Associates" & return after fld "about"
    put "This stack is free.  It may be copied and " after fld "about"
    put "distributed as long as you don't charge for it." after fld "about"
    put return & return after fld "about"
    put "I hope the stack is fairly self-explanatory.  " after fld "about"
    put "The rating system is based on a card that appears" after fld "about"
    put " in a wine-tasting book by Michael Broadbent.  " after fld "about"
    put "It was designed for use in the 'Sunday Times" after fld "about"
    put " Wine-tasting Club,' and is used here without"  after fld "about"
    put " permission.  "  after fld "about"
    put "Evaluation of the wine is broken up into four categories: sight, smell," after fld "about"
    put " taste, and overall quality.  Each of these categories has a number of" after fld "about"
    put " characteristics that are judged by picking one of a few qualifiers using" after fld "about"
    put " pop-up menus.  For instance, the characteristics of 'smell' here are" after fld "about"
    put " general appeal, fruit aroma, and bouquet.  There are also a nuber" after fld "about"
    put " of descriptive terms, any number of which can be chosen via pop-up" after fld "about"
    put " menus at the 'Description' entry.  Terms may be erased by choosing the" after fld "about"
    put " last menu choice, 'CLEAR.'  Comments for three of the four categories" after fld "about"
    put " are entered using the small document icons by the category headings." after fld "about"
    put " When pressed, these buttons pop up a window for comments (or hide them" after fld "about"
    put " if they are already visible).  An icon with lines in it siglifies the" after fld "about"
    put " the presence of comments."  after fld "about"
    put "  The total score is calculated automatically when" after fld "about"
    put " all the partial scores have been entered." after fld "about"
    put return & return after fld "about"
    put "The button with the icon depicting a stack of cards with four arrows" after fld "about"
    put " pops up a list of the names of all the cards in the stack and" after fld "about"
    put " allows you to go directly to any one.  The button with the 'sorting" after fld "about"
    put " hand' icon sorts the cards in the stack by name, vintage, or score. " after fld "about"
    put " The padlock button locks and unlocks the fields of the card so that," after fld "about"
    put " once an entry is made, subsequent inadvertant changes can be avoided." after fld "about"
    put "If the command key is held down while pushing the 'New Card' button," after fld "about"
    put " the fields from the present card will be copied into the new card." after fld "about"
    put " The rest of the buttons should be self-explanatory." after fld "about"
    put return & return after fld "about"
    put " I hope this stack is useful for you, and I would be interested to" after fld "about"
    put " hear your comments and/or suggestions.  My E-mail address is:" after fld "about"
    put  return & return after fld "about"
    put "[e-mail]" & return & return after fld "about"
    put "and my 'physical' mail address is:" & return & return after fld "about"
    put "Len Saaf" & return after fld "about"
    put "52 Raleigh St." & return after fld "about"
    put "Rochester, NY 14620 USA" & return & return after fld "about"
    put "Enjoy!" after fld "about"
    set the scroll of fld "about" to 0
  else
    hide fld "about"
  end if
  set cursor to 1
  unlock screen with dissolve
end mouseUp










-- part 77 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=0 top=20 right=117 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: about
----- HyperTalk script -----
on mousedown
  lock screen
  hide me
  unlock screen with dissolve
end mousedown